|>$.CX.!CrossStar.!Run
|
| Startup file for CrossStar
|
IconSprites <Obey$Dir>.!Sprites
Set Alias$@RunType_492 Run <Obey$Dir>.!Run %%*0
Set File$Type_492 CrossStr
|
WimpSlot -min 160K -max 160K
|
RMEnsure SystemDevices  1.13 Error CrossStar needs SystemDevices Module
RMEnsure SpriteUtils    1.04 Error CrossStar needs SpriteUtils Module
RMEnsure SpriteExtend   0.20 Error CrossStar needs SpriteExtension Module
RMEnsure WindowManager  2.00 Error CrossStar needs a newer Window Manager
RMEnsure FontManager    1.15 Error CrossStar needs a newer Font Manager
RMEnsure Draw           1.01 Error CrossStar needs Draw Module 1.01 or later
|
RMEnsure ResourceFS     0.00 IconSprites <Obey$Dir>.Resources.Sprites3
|
if "<System$Path>" = "" then Error 0 System resources cannot be found
|
RMEnsure UtilityModule 3.10 Error This application requires RISC OS 3.10 or later
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 Error This application requires CallASWI 0.02 or later
RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 4.03 Error This application requires FPEmulator 4.03 or later
RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.34 Error This application requires SharedCLibrary 5.34 or later
|
| Point to dictionary directory
Set CrossStarDictionary$Path <Obey$Dir>
Set CrossStarDictionary$Path <Dictionary$Dir>
If "<CrossStarDictionary$Path>" = "" then Set CrossStarDictionary$Path <Obey$Dir>
|
| Set options - cursor colour, marking colour, solution inner, 
| solution outer, text colour, marked word size foreground, background
|
|Uncomment next line for colour           
Set CrossStar$Options 15 11 1 2 7 7 11 128 128 128 0 0 0 960
|Uncomment next line for monochrome       
|Set CrossStar$Options  1  2  1 2 7 7 2 128 128 128 0 0 0 960  
|
Run "<Obey$Dir>.Resources.IfIs2D" Then Set CrossStar$Templates Templates2 Else Set CrossStar$Templates Templates
RMEnsure UtilityModule  3.00 Set CrossStar$Templates Templates2
|
Set CrossStar$Path <Obey$Dir>
|
WimpSlot -min 160K
Run "<CrossStar$Path>.!RunImage" %*0
